
Partial Class TestCoolCalendarVB
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            ClinicDate.DateTextFromValue = Request("Date")
        End If

        ClinicDate.DateTextRequired = True ' IS THIS REQUIRED OR NOT?
        ClinicDate.DateTextRequiredText = "Procedure date is required"
    End Sub

    Protected Sub LinkButton4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton4.Click
        If Page.IsValid Then
            debugarea.Text = "select * from tablename where createdate='" & ClinicDate.DateTextFromValue & "'"
        End If
    End Sub
End Class
